﻿Public Class frmOptions

    Private Sub btnBrowse_Click(sender As System.Object, e As System.EventArgs) Handles btnAnimation.Click
        With New OpenFileDialog
            .Filter = "GIS Files (*.gis)|*.gis"
            .Multiselect = False
            If .ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
                grpFiles.Controls(0).Controls(CType(sender, Button).Name.Replace("btn", "txt")).Text = .FileName
            End If
        End With
    End Sub

    Private Sub lnkReset_LinkClicked(sender As System.Object, e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles lnkReset.LinkClicked
        frmInfoMsg.ResetAllInfoMsgs()
    End Sub
End Class